home *** CD-ROM | disk | FTP | other *** search
/ Know Your Owls / Know Your Owls.iso / setup.mst < prev    next >
Text File  |  1995-06-27  |  17KB  |  530 lines
  1.  
  2.  
  3. '**************************************************************************
  4. '*                       MSSetup script for AXIA BOP (OWLS)
  5. '**************************************************************************
  6.  
  7. '*'$DEFINE DEBUG  ''Define for script development/debugging
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'mscpydis.inc'
  11. '$INCLUDE 'msdetect.inc'
  12.  
  13. ''Dialog ID's
  14. CONST WELCOME       = 100
  15. CONST AXIAINFO      = 101
  16. CONST ASKQUIT       = 200
  17. CONST DESTPATH      = 300
  18. CONST EXITFAILURE   = 400
  19. CONST EXITQUIT      = 600
  20. CONST EXITSUCCESS   = 700
  21. CONST APPHELP       = 900
  22. CONST CHECK         = 2500
  23. CONST SMALLWIN      = 2200
  24. CONST RESTART       = 2600
  25. CONST RESTARTII     = 2700
  26. CONST BADPATH       = 6400
  27.  
  28. ''Bitmap ID
  29. CONST LOGO = 1
  30.  
  31. GLOBAL WinDir$
  32. GLOBAL WinSysDir$
  33. GLOBAL DEST$        ''Default destination directory.
  34. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  35. GLOBAL CHECKSTATES$
  36. GLOBAL CUIDLL$
  37.  
  38. DECLARE SUB InstallVFW
  39. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  40. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  41. DECLARE SUB Reboot LIB "iniupd.dll"
  42. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  43. DECLARE SUB Install
  44. DECLARE SUB VWInstall
  45. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  46. DECLARE SUB WinExec LIB "kernel.exe" (cmd$, show%)
  47. DECLARE FUNCTION getPhysicalMemorySize LIB "mscuistf.dll" AS INTEGER
  48.  
  49. INIT:
  50.     WinDir$ = GetWindowsDir()
  51.     WinSysDir$ = GetWindowsSysDir()
  52.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  53.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  54.  
  55.     SetBitmap CUIDLL$, LOGO
  56.     SetTitle "Axia Know Your Birds of Prey Vol.1 OWLS"
  57.  
  58.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  59.     IF szInf$ = "" THEN
  60.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  61.     END IF
  62.     ReadInfFile szInf$
  63.  
  64.     DEST$ = "C:\AXIAOWLS"
  65.  
  66. '$IFDEF DEBUG
  67.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  68.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  69.     IF IsDriveValid(WinDrive$) = 0 THEN
  70.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  71.         GOTO QUIT
  72.     END IF
  73. '$ENDIF ''DEBUG
  74.  
  75.  
  76. WELCOME:
  77.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  78.     IF sz$ = "CONTINUE" THEN
  79.         UIPop 1
  80.     ELSE
  81.         GOSUB ASKQUIT
  82.         GOTO WELCOME
  83.     END IF
  84.  
  85.  
  86.  
  87. GETPATH:
  88.     SetSymbolValue "EditTextIn", DEST$
  89.     SetSymbolValue "EditFocus", "END"
  90. GETPATHL1:
  91.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  92.     DEST$ = GetSymbolValue("EditTextOut")
  93.  
  94.     IF sz$ = "CONTINUE" THEN
  95.         IF IsDirWritable(DEST$) = 0 THEN
  96.             GOSUB BADPATH
  97.             GOTO GETPATHL1
  98.         END IF
  99.         UIPop 1
  100.     ELSEIF sz$ = "REACTIVATE" THEN
  101.         GOTO GETPATHL1
  102.     ELSEIF sz$ = "BACK" THEN
  103.         UIPop 1
  104.         GOTO WELCOME
  105.     ELSE
  106.         GOSUB ASKQUIT
  107.         GOTO GETPATH
  108.     END IF
  109.  
  110.  
  111.     Install
  112.  
  113.  
  114. QUIT:
  115.     ON ERROR GOTO ERRQUIT
  116.  
  117.     IF ERR = 0 THEN
  118.         dlg% = EXITSUCCESS
  119.     ELSEIF ERR = STFQUIT THEN
  120.         dlg% = EXITQUIT
  121.     ELSE
  122.         dlg% = EXITFAILURE
  123.     END IF
  124. QUITL1:
  125.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  126.     IF sz$ = "REACTIVATE" THEN
  127.         GOTO QUITL1
  128.     END IF
  129.     UIPop 1
  130.  
  131.     END
  132.  
  133. ERRQUIT:
  134.     i% = DoMsgBox("Setup sources were corrupted, call (403) 262-2942!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  135.     END
  136.  
  137.  
  138.  
  139. BADPATH:
  140.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  141.     IF sz$ = "REACTIVATE" THEN
  142.         GOTO BADPATH
  143.     END IF
  144.     UIPop 1
  145.     RETURN
  146.  
  147.  
  148.  
  149. ASKQUIT:
  150.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  151.  
  152.     IF sz$ = "EXIT" THEN
  153.         UIPopAll
  154.         ERROR STFQUIT
  155.     ELSEIF sz$ = "REACTIVATE" THEN
  156.         GOTO ASKQUIT
  157.     ELSE
  158.         UIPop 1
  159.     END IF
  160.     RETURN
  161.  
  162.  
  163.  
  164. '**
  165. '** Purpose:
  166. '**     Builds the copy list and performs all installation operations.
  167. '** Arguments:
  168. '**     none.
  169. '** Returns:
  170. '**     none.
  171. '*************************************************************************
  172. SUB Install STATIC
  173.  
  174.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  175.     CreateDir DEST$, cmoNone
  176.  
  177. '*    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  178. '*    WriteToLogFile ""
  179. '*    WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  180. '*    WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  181. '*    WriteToLogFile ""
  182. '*    WriteToLogFile "May have had to create the directory: " + DEST$
  183. '*    WriteToLogFile ""
  184.  
  185.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  186.     AddSectionFilesToCopyList "Ctl3d", MakePath (SrcDir$, "other"), WinSysDir$
  187.     CopyFilesInCopyList
  188.  
  189. '* create the subsets directory
  190.  
  191.     CreateDir MakePath(DEST$,"SUBSETS"), cmoNone
  192.  
  193. '* create the INI file
  194.  
  195.         CreateIniKeyValue "win.ini", "Axia", "Owls", Dest$, cmoOverwrite
  196.  
  197.  
  198.     ini$ = MakePath(Dest$, "axia.ini")
  199.         CreateIniKeyValue ini$, "startup", "firsttime", "1" , cmoOverwrite
  200.         IF getPhysicalMemorySize < 8 THEN
  201.             CreateIniKeyValue ini$, "midi", "music", "0" , cmoOverwrite
  202.         ELSE
  203.             CreateIniKeyValue ini$, "midi", "music", "1" , cmoOverwrite
  204.         END IF
  205.         CreateIniKeyValue ini$, "zoom", "factor", "200" , cmoOverwrite
  206.         CreateIniKeyValue ini$, "About", "Title", "About Axia Birds of Prey vol. 1 - Know Your Owls" , cmoOverwrite
  207.         CreateIniKeyValue ini$, "About", "Version", "Know Your Birds of Prey vol. 1 v1.3" , cmoOverwrite
  208.         CreateIniKeyValue ini$, "About", "Trademark", "Know Your Birds of Prey vol. 1 is a trademark" , cmoOverwrite
  209.         
  210.  
  211.         CreateIniKeyValue ini$, "paths","cd", SrcDir$, cmoOverwrite
  212.     
  213.         CreateIniKeyValue ini$, "Product","ID", "owls", cmoOverwrite
  214.         CreateIniKeyValue ini$, "Product","Ver","1.3", cmoOverwrite
  215.  
  216.  
  217. '* create the program manager group & items
  218.  
  219.     CreateProgmanGroup "AXIA OWLS", WinDir$+"axiaowls.grp", cmoNone
  220.     ShowProgmanGroup  "AXIA OWLS", 1, cmoNone
  221.  
  222.     CreateProgmanItem "AXIA OWLS", "Axia Owls", MakePath(DEST$,"bin\axia.exe "), ",,,,", cmoOverwrite
  223.     CreateProgmanItem "AXIA OWLS", "SlideShow", MakePath(DEST$,"bin\pictures.exe ")+" pictures.dat 5", ",,,,", cmoOverwrite
  224.     CreateProgmanItem "AXIA OWLS", "How To Use Axia", MakePath(DEST$,"bin\axia.exe")+" htua.afs", MakePath(DEST$,"bin\htua.ico")+",,,,", cmoOverwrite
  225.     CreateProgmanItem "AXIA OWLS", "Read Me", MakePath(GetWindowsDir, "write.exe")+" "+SrcDir$+"other\readme.wri", ",,,,"+MakePath(SrcDir$, "midi\scripts"), cmoOverwrite
  226.     CreateProgmanItem "AXIA OWLS", "Installation Help", MakePath(GetWindowsDir, "winhelp.exe")+" "+SrcDir$+"help\install.hlp", ",,,,"+MakePath (SrcDir$, "help"), cmoOverwrite
  227.  
  228.  
  229. INFO:
  230.     sz$ = UIStartDlg(CUIDLL$, AXIAINFO,"FInfoDlgProc", APPHELP, HELPPROC$)
  231.     IF sz$ = "CONTINUE" THEN
  232.         UIPop 1
  233.     ELSE
  234.         GOSUB ASKQUIT
  235.         GOTO INFO
  236.     END IF
  237.  
  238.     InstallVfW
  239. '*    CloseLogFile
  240.  
  241. ASKQUIT:
  242.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  243.  
  244.     IF sz$ = "EXIT" THEN
  245.         UIPopAll
  246.         ERROR STFQUIT
  247.     ELSEIF sz$ = "REACTIVATE" THEN
  248.         GOTO ASKQUIT
  249.     ELSE
  250.         UIPop 1
  251.     END IF
  252.     RETURN
  253.  
  254. END SUB
  255.  
  256.  
  257.  
  258. '**
  259. '** Purpose:
  260. '**     Appends a file name to the end of a directory path,
  261. '**     inserting a backslash character as needed.
  262. '** Arguments:
  263. '**     szDir$  - full directory path (with optional ending "\")
  264. '**     szFile$ - filename to append to directory
  265. '** Returns:
  266. '**     Resulting fully qualified path name.
  267. '*************************************************************************
  268. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  269.     IF szDir$ = "" THEN
  270.         MakePath = szFile$
  271.     ELSEIF szFile$ = "" THEN
  272.         MakePath = szDir$
  273.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  274.         MakePath = szDir$ + szFile$
  275.     ELSE
  276.         MakePath = szDir$ + "\" + szFile$
  277.     END IF
  278. END FUNCTION
  279.  
  280. '*** Installation for video for windows
  281.  
  282. SUB InstallVfW STATIC
  283.  
  284. VFWINIT:
  285.  
  286.     CUIDLL$ = "vwcuistf.dll"            ''Custom user interface dll
  287.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  288.  
  289.     WIN32ENABLED% = 0
  290.     MajorVer% = GetWindowsMajorVersion()
  291.     MinorVer% = GetWindowsMinorVersion()
  292.     Processor% = GetProcessorType()
  293.     WinDir$ = GetWindowsDir()
  294.     DEST$ = GetWindowsDir()
  295.     WinSysDir$ = GetWindowsSysDir()
  296.     WinSys32Dir$ = WinDir$ + "system32"
  297.  
  298.      IF MinorVer% = 95 THEN
  299.       i% = DoMsgBox("Video for Windows is native to Windows 95, so installation is completed!","Installation Finished",MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
  300.       END
  301.       END IF
  302.  
  303.     IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  304.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  305.     END
  306.     END IF
  307.  
  308.     'Prevents installation on 286
  309.     IF Processor% < 3 THEN
  310.     i% = DoMsgBox("Video for Windows requires a 386 or greater processor or emulator.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  311.     END
  312.     END IF
  313.  
  314.     ' Use Wowexec to determine version of NT.  3.1 did not stamp wowexec and wow returns 3.1 as version
  315.     IF OnWindowsNT() THEN
  316.       OnNT$ = "TRUE"
  317.       WowVersion$ = GetVersionOfFile(WinSys32Dir$ + "\wowexec.exe")
  318.       IF WowVersion$ = "" THEN
  319.          i% = DoMsgBox("Video for Windows does not run on Windows NT 3.1.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  320.          END
  321.       END IF
  322.     END IF
  323.  
  324.     SetBitmap CUIDLL$, LOGO
  325.     SetTitle "Video for Windows 1.1 Runtime"
  326.  
  327.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  328.     IF szInf$ = "" THEN
  329.        szInf$ = GetSymbolValue("STF_CWDDIR") + "VFWSETUP.INF"
  330.     END IF
  331.     ReadInfFile szInf$
  332.  
  333.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  334.  
  335. VWWELCOME:
  336.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  337.     IF sz$ = "CONTINUE" THEN
  338.        UIPop 1
  339.      ELSE
  340.     GOSUB VWASKQUIT
  341.     GOTO VWWELCOME
  342.     END IF
  343.  
  344. ''Prepare Copy list and check size
  345.  
  346.     ClearCopyList
  347.     SrcDir$ = GetSymbolValue("STF_SRCDIR") + "vfwrt"
  348.  
  349. '' Remove DCISVGA file
  350.       AddSectionFilesToCopyList "remove", SrcDir$, WinSysDir$
  351.  
  352. ''  Runtime files (on Windows disk)
  353. ''  Do not install OLE or MPlayer if on next release of NT or Windows
  354.  
  355.     IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN            'These files not necessary on Windows NT
  356.     AddSectionFilesToCopyList "MPlayer", SrcDir$, WinDir$
  357.     AddSectionFilesToCopyList "OLE2", SrcDir$, WinSysDir$
  358.     END IF
  359.     AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  360.     AddSectionFilesToCopyList "ACM Drivers", SrcDir$, WinSysDir$
  361.     AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  362.     IF OnNT$ = "TRUE" THEN
  363.     AddSectionFilesToCopyList "NT MSVideo", SrcDir$, WinSys32Dir$
  364.     ENDIF
  365. ''*************************************************************************************************************************
  366. ''*************************************************************************************************************************
  367. ''To add a DCI provider, please un-comment the AddSectionFilesToCopyList,
  368. ''and add a "DCI Provider" section with to the SETUP.INF file.
  369. ''
  370. ''    AddSectionFilesToCopyList "DCI Provider", SrcDir$, WinSysDir$
  371. ''*************************************************************************************************************************
  372. ''*************************************************************************************************************************
  373.  
  374. ''  Check windrive diskspace
  375.     SizeReq& = GetCopyListCost ("","", "")
  376.     IF SizeReq& <> 0 THEN
  377.     GOSUB VWSMALLWIN
  378.     END
  379.     END IF
  380.  
  381. VWInstall
  382.  
  383. '' Restart Windows: if it has to updates ACM from DOS, it restarts Windows automatically
  384. '' else, it gives the user the choice
  385.     RESTRT% = RestartListEmpty ()
  386.     Exe$ = DEST$ + "\_msrstrt.exe"
  387.     Batch$ = DEST$ + "\_mssetup.bat"
  388.     empty$ = ""
  389. VWRESTART:
  390.     IF RESTRT% = 0 THEN
  391.        sz$ = UIStartDlg(CUIDLL$, RESTART, "FInfo0DlgProc", 0, "")
  392.        IF sz$ = "REACTIVATE" THEN
  393.       GOTO VWRESTART
  394.        ENDIF
  395.        I% = ExitExecRestart ()
  396.        RemoveFile Exe$, cmoForce
  397.        RemoveFile Batch$, cmoForce
  398.        END
  399.     ELSE
  400.        sz$ = UIStartDlg(CUIDLL$, RESTARTII, "FQuitDlgProc", 0, "")
  401.        IF sz$ = "CONTINUE" THEN
  402.       I% = ExitWindowsExec (Exe$, empty$)
  403.       IF I% = 0 THEN
  404.          GOTO VWRESTART
  405.       ELSE
  406.          END
  407.      ENDIF
  408.        ELSEIF sz$ = "EXIT" THEN
  409.       UIPopAll
  410.       END
  411.        ELSEIF sz$ = "REACTIVATE" THEN
  412.       GOTO VWRESTART
  413.        ELSE
  414.       UIPop 1
  415.        END IF
  416.     END IF
  417.  
  418.  
  419. VWQUIT:
  420. '*    ON ERROR GOTO VWERRQUIT
  421.  
  422.     IF ERR = 0 THEN
  423.     dlg% = EXITSUCCESS
  424.     ELSEIF ERR = STFQUIT THEN
  425.     dlg% = EXITQUIT
  426.     ELSE
  427.     dlg% = EXITFAILURE
  428.     END IF
  429. VWQUITL1:
  430.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  431.     IF sz$ = "REACTIVATE" THEN
  432.     GOTO VWQUITL1
  433.     END IF
  434.     UIPop 1
  435.     END
  436.  
  437. VWERRQUIT:
  438.     i% = DoMsgBox("An installation problem occured, call the product support service", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  439.     END
  440.  
  441.  
  442. VWASKQUIT:
  443.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  444.  
  445.     IF sz$ = "EXIT" THEN
  446.     UIPopAll
  447. ''        ERROR STFQUIT
  448.     END
  449.     ELSEIF sz$ = "REACTIVATE" THEN
  450.     GOTO VWASKQUIT
  451.     ELSE
  452.     UIPop 1
  453.     END IF
  454.     RETURN
  455.  
  456. VWSMALLWIN:
  457.     sz$ = UIStartDlg(CUIDLL$, SMALLWIN, "FInfo0DlgProc", 0, "")
  458.     IF sz$ = "REACTIVATE" THEN
  459.     GOTO VWSMALLWIN
  460.     END IF
  461.     UIPop 1
  462.     RETURN
  463.  
  464.  
  465. END SUB
  466.  
  467. '**
  468. '** Purpose:
  469. '**     Performs all installation operations for the Video for Windows 1.1 runtime.
  470. '** Arguments:
  471. '**     none.
  472. '** Returns:
  473. '**     none.
  474. '*************************************************************************
  475. SUB VWInstall STATIC
  476.  
  477.     SetRestartDir WinDir$
  478.     CopyFilesInCopyList
  479.  
  480. ''Updating WIN.INI and SYSTEM.INI
  481. ''Only update SYSTEM.INI  on NT or next version of Windows for other codecs
  482.  
  483. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  484.     IF VflatdPresent() = 0 THEN
  485.        CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  486.     END IF
  487. END IF
  488.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  489.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  490.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
  491.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "IR32.dll", cmoOverwrite
  492.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  493.     I% = DoesIniKeyExist ("system.ini", "Drivers", "VIDC.RT21")
  494.     IF I% = 0  THEN
  495.        CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "ir21_r.dll", cmoOverwrite
  496.     END IF
  497.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "ir21_r.dll", cmoOverwrite
  498.     CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  499.     CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  500.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  501.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  502.     CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  503.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  504.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  505.     CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  506.  
  507. ''*************************************************************************************************************************
  508. ''*************************************************************************************************************************
  509. ''To add a DCI provider, please un-comment the UDH line, and un-comment and replace the    <provider> with your own file name
  510. ''
  511. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "DCI", "<provider>", cmoOverwrite
  512. ''  CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "vids.draw", "udh.dll", cmoOverwrite
  513. ''*************************************************************************************************************************
  514. ''*************************************************************************************************************************
  515.  
  516. ''Do not register components not installed with Video for Windows on NT or next version of Windows.
  517. IF ((NOT OnNT$ = "TRUE") AND MinorVer% < 50) THEN
  518.     Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  519.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  520.     Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  521.  
  522. '' Mplayer
  523.     CreateProgmanItem "Accessories", "Media Player", MakePath(WinDir$, "mplayer.exe"), "", cmoOverwrite
  524.  
  525. END IF    ''NT and next version of Windows installation stop here.
  526.  
  527.     Run ("profdisp.exe")
  528. END SUB
  529.  
  530.